home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00010.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  1.9 KB  |  57 lines
  1. on exitFrame
  2.   global mnv, ppl, foes, advance, soundspath, pwr, fxpath
  3.   if getAt(mnv, 1) > 1 then
  4.     if the keyCode > 124 then
  5.       set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  6.       if the keyCode = 126 then
  7.         set the locV of sprite getAt(ppl, 1) to the locV of sprite getAt(ppl, 1) - 17
  8.       else
  9.         set the locV of sprite getAt(ppl, 1) to the locV of sprite getAt(ppl, 1) + 17
  10.       end if
  11.       setAt(mnv, 1, getAt(mnv, 1) - 1)
  12.     else
  13.       if the keyCode > 122 then
  14.         set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  15.         if sprite(getAt(ppl, 1)).flipH = 1 then
  16.           set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) - 17
  17.         else
  18.           set the locH of sprite getAt(ppl, 1) to the locH of sprite getAt(ppl, 1) + 17
  19.         end if
  20.         setAt(mnv, 1, getAt(mnv, 1) - 1)
  21.       else
  22.         set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  23.         setAt(mnv, 1, getAt(mnv, 1) - 1)
  24.       end if
  25.     end if
  26.   else
  27.     if the memberNum of sprite getAt(ppl, 1) < 82 then
  28.       set the member of sprite getAt(ppl, 1) to member(1, 2)
  29.     end if
  30.   end if
  31.   put getAt(pwr, 1) into field "power"
  32.   if getAt(pwr, 1) <= 0 then
  33.     go("dead")
  34.   end if
  35.   if advance = 1 then
  36.     foes(getAt(foes, 1), getAt(ppl, 2))
  37.   else
  38.     if (advance = 2) or (advance = 3) then
  39.       foes(getAt(foes, 2), getAt(ppl, 3))
  40.       foes(getAt(foes, 3), getAt(ppl, 4))
  41.     else
  42.       if advance = 4 then
  43.         foes(getAt(foes, 1), getAt(ppl, 2))
  44.       end if
  45.     end if
  46.   end if
  47.   puppetSprite(31, 0)
  48.   if not soundBusy(4) then
  49.     sound playFile 4, fxpath & "psymus.aif"
  50.   end if
  51.   if (sprite(30).visible = 1) and sprite getAt(ppl, 1) intersects 30 then
  52.     go("endstage1")
  53.   else
  54.     go(marker(0))
  55.   end if
  56. end
  57.